﻿Imports APILocawebGatewayUI.REDECARD

Partial Public Class RedecardRetorno
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim redecardData = New GerenciadorRedecard(HttpContext.Current)

        If (redecardData.RealizarCaptura()) Then
            'transação realizada com sucesso, armazenar dados no banco de dados
        Else
            'Falha na transação
        End If

        If (redecardData.EstaAprovada) Then

            ' Utilizado para exibir informações na TELA para o usuário

            hypComprovante.NavigateUrl = redecardData.UrlDoComprovante(IdiomaDoSite.Portugues, True)
            hypComprovante.Visible = True

        Else

            hypComprovante.Text = redecardData.MensagemRetornoTransacao
        End If
    End Sub

End Class